Version 1/060801 of Simple Sex by Sir Gareth begins here.

Include Simple Clothing by Sir Gareth

Volume 1 - Disambiguation

[Many thanks to Jesse McGrew]

Include ChooseObjects by Jesse McGrew 

Rule for choosing ambiguous objects when examining:
  Try things that are part of people who partner the player;
  Try things that are held by people who partner the player;
  Try people who partner the player.

Rule for choosing ambiguous objects when kissing:
  Try people who partner the player.

Rule for choosing ambiguous objects when licking:
  Try things that are part of people who partner the player;
  Try people who partner the player.

Rule for choosing ambiguous objects when rubbing:
  Try things that are part of people who partner the player;
  Try people who partner the player.

Rule for choosing ambiguous objects when screwing:
  Try things that are part of people who partner the player;
  Try people who partner the player.

Rule for choosing ambiguous objects when taking off:
  Try things that are worn by people who partner the player;
  Try things that are worn by the player.

Volume 2 - Sex

Part 2.1 -  Generic body-parts

A breast is a kind of body-part.  A breast is part of every woman.  Understand "breasts/tit/tits/boob/boobs/nipple/nipples" as breast.

A pussy is a kind of body-part.  A pussy is part of every woman.  Understand "vagina/cunt/clit/clitoris" as pussy

A penis is a kind of body-part.  A penis is part of every man.  Understand "cock/dick" as penis

An ass is a kind of body-part.  An ass is part of every man. An ass is part of every woman.  Understand "butt/bottom/bum" as ass.

A legs is a kind of body-part.  A legs is part of every man. A legs is part of every woman. Understand "leg" as legs

A mouth is a kind of body-part.  A mouth is part of every man. A mouth is part of every woman. Understand "lips" as mouth

hair is a kind of body-part.  A hair is part of every man. A hair is part of every woman.

eyes is a kind of body-part.  A eyes is part of every man. A eyes is part of every woman. Understand "eye" as eyes. 

When play begins:
  Now every breast overlies the chest-area;
  Now every pussy overlies the crotch-area;
  Now every penis overlies the crotch-area;
  Now every ass overlies the ass-area;
  Now every legs overlies the legs-area.

[The arousal numbers and other specific variables for body parts are contained in the sections on individual verbs, below]




Part 2.2 - General sex action stuff

Section 2.2.0 - New sex verbs

Understand "make out with [someone]" as kissing

Understand "kiss [a body-part]" as licking

Hugging is an action applying to one touchable thing.  Understand the command "hug" as something new.  Understand the command "embrace" as something new.  Understand "hug [person]" and "hold [a person]" and "embrace [a person]" as hugging

Licking is an action applying to one touchable thing.  Understand "lick [something]" and "suck [something]" and "eat [a person]" and "eat [a body-part]" and "taste [a person]" and "taste [a body-part]" as licking

Screwing is an action applying to one touchable thing.  Understand "have sex with [something]" and "make love to [something]" and "fuck [something]" as screwing

Understand the command "screw" as something new.  Understand "screw [something]" as turning.  Understand "screw [a person]" and "screw [a body-part]" as screwing

Understand "touch [a person]" and "touch [a body-part]" as rubbing

Thru-rubbing is an action applying to one touchable thing.

Masturbating is an action applying to nothing.  Understand "masturbate" as masturbating.  Understand "jack off" as masturbating.

Understand "masturbate [someone]" as rubbing.  Understand "masturbate [a body-part]" as rubbing

Section  2.2.1 - General sex interaction stuff

A person has a number called arousal.  The arousal of a person is usually 0.

A person can be horny.  A person is usually not horny.  The player is horny.

Loving relates various people to various people.  The verb to love (he loves, they love, he is loving, he is loved) implies the loving relation.

A person can be busy.  A person is usually not busy.

Partnership relates one person to another (called the partner).  The verb to partner (it partners, they partner, it is partnering, it is partnered) implies the partnership relation.

A person has a property called stop message.  The stop message of a person is usually "'Cut it out!'"

A person has a property called refusal message.  The refusal message of a person is usually "'I don't think so.'"

A person has a property called not ready message.  The not ready message of a person is usually "'Let's slow down a bit.'"

A person has a property called not in public message.  The not in public message of a person is usually "'Out here in public?  Are you crazy?'"

Licking something is naughtiness. Screwing something is naughtiness.  Rubbing a body-part is naughtiness.  Rubbing someone is naughtiness.  Kissing something is naughtiness.  Thru-rubbing a body-part is naughtiness. 

Section 2.2.2 - General check rulebooks for sexual verbs

To refuse: say the refusal message of the person asked;

[For brevity's sake, messages for failed sex checks are contained in the sex checks themselves]
Unsuccessful attempt by someone trying naughtiness: Do nothing.

Persuasion rule for asking someone to try naughtiness:  persuasion succeeds

Sex-persuasion rules is a rulebook

A sex-persuasion rule:
   If the person asked is not horny begin;
     refuse;
     persuasion fails;
  end if.

A sex-persuasion rule:
   If the noun is a person and the person asked does not love the noun begin;
     refuse;
     persuasion fails;
  end if.

A sex-persuasion rule:
   If the noun is a body-part and the person asked does not love the holder of the noun begin;
     refuse;
     persuasion fails;
  end if.

A sex-persuasion rule:
   If the noun is a clothing which is worn by someone who is not the person asked and the person asked does not love the holder of the noun begin;
     refuse;
     persuasion fails;
  end if.

A sex-persuasion rule:
   If the location of the person asked is a public-area begin;
     say the not in public message of the person asked;
     persuasion fails;
  end if.

Sex-check rules is a rulebook

[A sex-check rule:  If the person asked is not horny, refuse instead.

A sex-check rule:  If the noun is a person who is not loved by the person asked, refuse instead.

A sex-check rule:  If the noun is a layered and the holder of the noun is not loved by the person asked, refuse instead.]

A sex-check rule:  If the noun is not a person and the noun is not a layered, say "That's a little too kinky for this game." instead.

A sex-check rule:  If the noun is not a person and the holder of the noun is not a person, say "ERROR--[The holder of the noun] is not a person, so I can't perform this action!" instead.

A sex-check rule:  If the noun is a person who is not horny, say the stop message of the noun instead.

A sex-check rule:  If the noun is a layered and the holder of the noun is not horny, say the stop message of the holder of the noun instead.

A sex-check rule:  If the noun is a person who does not love the person asked, say the stop message of the noun instead.

A sex-check rule:  If the noun is a layered and the holder of the noun does not love the person asked, say the stop message of the holder of the noun instead.

A sex-check rule:  If a visible person (called P) who is not the person asked is not horny, say the stop message of P instead.


Section 2.2.3 - Public areas

A public-area is a kind of room

Instead of naughtiness in a public-area, say the not in public message of the player.

Instead of someone trying naughtiness in a public-area, say the not in public message of the person asked.

Definition:  A person is indecent:
  If it does not clothing-own anything, decide no;
  If every clothing clothing-owned by it is worn by it, decide no;
  otherwise decide yes.

Instead of going to a public-area while the player is indecent, say "You shouldn't go out into public less than fully clothed!"

Part 2.3 - Specific verbs

Section 2.3.1 - Kissing

Instead of kissing a mouth which is part of a person (called P), try kissing P

Instead of kissing a body-part, try licking noun

A person has a number called kiss arousal.  The kiss arousal of a person is usually 2.

A person has a number called kiss threshold.  The kiss threshold of a person is usually 0.

A procedural rule:  Ignore the block kissing rule.

A persuasion rule for asking someone to try kissing someone:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try kissing someone: 
   If the arousal of the person asked is less than the kiss threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

Check kissing:  Abide by the sex-check rules

Check kissing a person: If the arousal of the noun is less than the kiss threshold of the noun, say the not ready message of the noun instead.

Check someone trying kissing:  Abide by the sex-check rules

Check someone trying kissing a person (this is the not ready for kissing rule):  If the arousal of the noun is less than the kiss threshold of the noun, say the not ready message of the noun instead.

Check kissing (this is the can't kiss yourself rule):  If the noun is the person asked, say "You can't kiss yourself!" instead

Check someone trying kissing (this is the people can't kiss themselves rule):  If the noun is the person asked, say "People can't kiss themselves!" instead

Carry out kissing a person (called the kissee):
  If the arousal of the player is less than the kiss arousal of the player, change the arousal  of the player to the kiss arousal of the player;
  If the arousal of the kissee is less than the kiss arousal of the kissee, change the arousal  of the kissee to the kiss arousal of the kissee;
  Now the player is busy;
  Now the kissee is busy;
  Now the player partners the kissee;
  Now the kissee partners the player.

Carry out someone trying kissing a person (called the kissee):
  If the arousal of the person asked is less than the kiss arousal of the person asked, change the arousal  of the person asked to the kiss arousal of the person asked;
  If the arousal of the kissee is less than the kiss arousal of the kissee, change the arousal  of the kissee to the kiss arousal of the kissee;
  Now the person asked is busy;
  Now the kissee is busy;
  Now the person asked partners the kissee;
  Now the kissee partners the person asked.

Section 2.3.2 - Licking

A body-part can be lickable.  A body-part is seldom lickable.  A penis is usually lickable.  A pussy is usually lickable.  A breast is usually lickable

A body-part can be self-lickable.  A body-part is seldom self-lickable.

A body-part has a property called no self lick message.  The no self lick message of a body-part is usually "That would be quite a feat."

A person has a number called lick arousal.  The lick arousal of a person is usually 4.

A person has a number called lick threshold.  The lick threshold of a person is usually 0.

A body-part has a number called lick arousal.  The lick arousal of a body-part is usually 4.

A body-part has a number called lick threshold.  The lick threshold of a body-part is usually 0.

Instead of licking a person who encloses a penis (called P), try licking P

Instead of licking a person who encloses a pussy (called P), try licking P

Instead of licking a person, say "You need to be more specific about what part of [the noun] you want to lick."

Instead of someone (called A) trying licking a person who encloses a penis (called P), try A trying licking P

Instead of someone (called A) trying licking a person who encloses a pussy (called P), try A trying licking P

Instead of someone trying licking a person, say "You need to be more specific."

Instead of licking a body-part which is hidden by clothing, say "You would need to take off [the cover of the noun] first." instead.

Instead of someone trying licking a body-part which is hidden by clothing, say "[The person asked] would need to take off [the cover of the noun] first." instead.

A persuasion rule for asking someone to try licking someone:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try licking a body-part:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try licking a body-part: 
   If the arousal of the person asked is less than the lick threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

A persuasion rule for asking someone to try licking a person: 
   If the arousal of the person asked is less than the lick threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

Check licking:  If the noun is part of the player and the noun is not self-lickable, say the no self lick message of the noun instead

Check someone trying licking a body-part:  If the noun is part of the person asked and the noun is not self-lickable, say the no self lick message of the noun instead

Check licking:  Abide by the sex-check rules

Check licking a body-part:  If the arousal of the holder of the noun is less than the lick threshold of the noun, say the not ready message of the holder of the noun instead.

Check licking a body-part:  If the noun is not lickable, say "[The noun] doesn't look very appetizing." instead

Check someone trying licking:  Abide by the sex-check rules

Check someone trying licking a body-part:  If the arousal of the holder of the noun is less than the lick threshold of the noun, say the not ready message of the holder of the noun instead.

Check someone trying licking a body-part:  If the noun is not lickable, say "[The person asked] doesn't find [the noun] very appetizing." instead

Carry out licking a body-part:
  Let the lickee be the holder of the noun;
  If the arousal of the player is less than the lick arousal of the player, change the arousal  of the player to the lick arousal of the player;
  If the arousal of the lickee is less than the lick arousal of the noun, change the arousal  of the lickee to the lick arousal of the noun;
  Now the player is busy;
  Now the lickee is busy;
  Now the player partners the lickee;
  Now the lickee partners the player.

Carry out someone trying licking a body-part:
  Let the lickee be the holder of the noun;
  If the arousal of the person asked is less than the lick arousal of the person asked, change the arousal  of the person asked to the lick arousal of the person asked;
  If the arousal of the lickee is less than the lick arousal of the noun, change the arousal  of the lickee to the lick arousal of the noun;
  Now the person asked is busy;
  Now the lickee is busy;
  Now the person asked partners the lickee;
  Now the lickee partners the person asked.

Section 2.3.3 - Rubbing

Instead of rubbing a body-part which is hidden by clothing, try thru-rubbing noun.

Instead of someone trying rubbing a body-part which is hidden by clothing, try the person asked trying thru-rubbing noun.

A body-part can be rubbable.  A body-part is usually rubbable.  Hair is usually not rubbable.  Eyes is usually not rubbable.

A person has a number called rub arousal.  The rub arousal of a person is usually 4.

A person has a number called rub threshold.  The rub threshold of a person is usually 0.

A body-part has a number called rub arousal.  The rub arousal of a body-part is usually 4.

A body-part has a number called rub threshold.  The rub threshold of a body-part is usually 0.

A procedural rule:  If the noun is a body-part or the noun is a person, ignore the block rubbing rule.

Instead of rubbing a person, say "You need to be more specific about what part of [the noun] you want to touch."

Instead of someone trying rubbing a person, say "You need to be more specificabout what part of [the noun] you want [the person asked] to touch."

Instead of rubbing a body-part which is not rubbable, try touching noun instead

Instead of someone trying rubbing a body-part which is not rubbable, try try the person asked trying touching noun instead

Check someone trying rubbing a body-part:  If the arousal of the holder of the noun is less than the rub threshold of the noun, say the not ready message of the holder of the noun instead.

Check someone trying rubbing a body-part:  If the noun is not rubbable, try the person asked trying touching noun instead

A persuasion rule for asking someone to try rubbing someone:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try rubbing a body-part:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try rubbing a body-part: 
   If the arousal of the person asked is less than the rub threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

A persuasion rule for asking someone to try rubbing a person: 
   If the arousal of the person asked is less than the rub threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

Check rubbing:  Abide by the sex-check rules

Check rubbing a body-part:  If the arousal of the holder of the noun is less than the rub threshold of the noun, say the not ready message of the holder of the noun instead.

Check someone trying rubbing:  Abide by the sex-check rules

Check someone trying rubbing a body-part:  If the arousal of the holder of the noun is less than the rub threshold of the noun, say the not ready message of the holder of the noun instead.

Carry out rubbing a body-part:
  Let the rubbee be the holder of the noun;
  If the arousal of the player is less than the rub arousal of the player, change the arousal  of the player to the rub arousal of the player;
  If the arousal of the rubbee is less than the rub arousal of the noun, change the arousal  of the rubbee to the rub arousal of the noun;
  Now the player is busy;
  Now the rubbee is busy;
  Now the player partners the rubbee;
  Now the rubbee partners the player.

Carry out someone trying rubbing a body-part:
  Let the rubbee be the holder of the noun;
  If the arousal of the person asked is less than the rub arousal of the person asked, change the arousal  of the person asked to the rub arousal of the person asked;
  If the arousal of the rubbee is less than the rub arousal of the noun, change the arousal  of the rubbee to the rub arousal of the noun;
  Now the person asked is busy;
  Now the rubbee is busy;
  Now the person asked partners the rubbee;
  Now the rubbee partners the person asked.

Section 2.3.4 - Rubbing through clothing

A body-part can be thru-rubbable.  A body-part is usually thru-rubbable.  Hair is usually not thru-rubbable.  Eyes is usually not thru-rubbable.

A person has a number called thru-rub arousal.  The thru-rub arousal of a person is usually 4.

A body-part has a number called thru-rub arousal.  The thru-rub arousal of a body-part is usually 4.

Instead of thru-rubbing a person, say "You need to be more specific about what part of [the noun] you want to touch."

Instead of someone trying thru-rubbing a person, say "You need to be more specific about what part of [the noun] you want [the person asked] to touch."

Instead of thru-rubbing a body-part which is not thru-rubbable, say "You can't rub that through clothing." instead

Instead of someone trying thru-rubbing a body-part which is not thru-rubbable, say "[The person asked] can't rub that through clothing." instead

Check someone trying thru-rubbing a body-part:  If the arousal of the holder of the noun is less than the rub threshold of the noun, say the not ready message of the holder of the noun instead.

A persuasion rule for asking someone to try thru-rubbing someone:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try thru-rubbing a body-part:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try thru-rubbing a body-part: 
   If the arousal of the person asked is less than the rub threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

A persuasion rule for asking someone to try thru-rubbing a person: 
   If the arousal of the person asked is less than the rub threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

Check thru-rubbing:  Abide by the sex-check rules

Check thru-rubbing a body-part:  If the arousal of the holder of the noun is less than the rub threshold of the noun, say the not ready message of the holder of the noun instead.

Check someone trying thru-rubbing:  Abide by the sex-check rules

Check someone trying thru-rubbing a body-part:  If the arousal of the holder of the noun is less than the rub threshold of the noun, say the not ready message of the holder of the noun instead.

Carry out thru-rubbing a body-part:
  Let the thru-rubbee be the holder of the noun;
  If the arousal of the player is less than the thru-rub arousal of the player, change the arousal  of the player to the thru-rub arousal of the player;
  If the arousal of the thru-rubbee is less than the thru-rub arousal of the noun, change the arousal  of the thru-rubbee to the thru-rub arousal of the noun;
  Now the player is busy;
  Now the thru-rubbee is busy;
  Now the player partners the thru-rubbee;
  Now the thru-rubbee partners the player.

Carry out someone trying thru-rubbing a body-part:
  Let the thru-rubbee be the holder of the noun;
  If the arousal of the person asked is less than the thru-rub arousal of the person asked, change the arousal  of the person asked to the thru-rub arousal of the person asked;
  If the arousal of the thru-rubbee is less than the thru-rub arousal of the noun, change the arousal  of the thru-rubbee to the thru-rub arousal of the noun;
  Now the player is busy;
  Now the thru-rubbee is busy;
  Now the person asked partners the thru-rubbee;
  Now the thru-rubbee partners the person asked.

Section 2.3.5 - Having sex

A body-part can be screwable.  A body-part is usually not screwable.  A penis is usually screwable.  A pussy is usually screwable.  A breast is usually screwable.

A body-part can be penetrable.  A body-part is usually not penetrable.  A pussy is usually penetrable.  An ass is usually penetrable.  A breast is usually penetrable.  A mouth is usually penetrable.

A person has a number called screw arousal.  The screw arousal of a person is usually 10.

A person has a number called screw threshold.  The screw threshold of a person is usually 0.

A body-part has a number called screw arousal.  The screw arousal of a body-part is usually 10.

A body-part has a number called screw threshold.  The screw threshold of a body-part is usually 0.


Instead of screwing a person who encloses a pussy (called P), try screwing P

Instead of screwing a person who encloses a penis (called P), try screwing P

Instead of screwing a person, say "I'm not sure what you want to do."

Instead of someone (called A) trying screwing a person who encloses a penis (called P), try A trying screwing P

Instead of someone (called A) trying screwing a person who encloses a pussy (called P), try A trying screwing P

Instead of someone trying screwing a person, say "I'm not sure what you want [the person asked] to do."

Instead of screwing a body-part which is hidden by clothing, say "You would need to take off [the cover of the noun] first." instead.

Instead of someone trying screwing a body-part which is hidden by clothing, say "[The person asked] would need to take off [the cover of the noun] first." instead.

A persuasion rule for asking someone to try screwing a person:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try screwing a body-part:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try screwing a body-part: 
   If the arousal of the person asked is less than the screw threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

A persuasion rule for asking someone to try screwing a person: 
   If the arousal of the person asked is less than the screw threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

Check screwing a body-part:  If the noun is not screwable, say "I'm not sure how you plan to do that." instead

Check someone trying screwing a body-part:  If the noun is not screwable, say "I'm not sure how you plan for [the person asked] to do that." instead

Check screwing a body-part:  If the player holds the noun, say "You can't have sex with yourself!"

Check someone trying screwing a body-part:  If the person asked holds the noun, say "People can't have sex with themselves!" instead

[I had trouble getting a syntax that worked for the following condition:]
Check screwing a penetrable body-part:
     If the player does not enclose a penis, say "I'm not sure how you intend [the person asked] to do that." instead;
     If the player encloses a penis which is hidden by clothing (called C), say "You would need to take off [the C] first." instead.

Check screwing a penis:
   If the player does not enclose a pussy, say "I'm not sure how you intend [the person asked] to do that." instead;
     If the player encloses a pussy which is hidden by clothing (called C), say "You would need to take off [the C] first." instead

Check someone trying screwing a penetrable body-part:
     If the person asked does not enclose a penis, say "I'm not sure how you intend [the person asked] to do that." instead;
     If the person asked encloses a penis which is hidden by clothing (called C), say "[The person asked] would need to take off [the C] first." instead

Check someone trying screwing a penis:
   If the person asked does not enclose a pussy, say "I'm not sure how you intend [the person asked] to do that." instead;
     If the person asked encloses a pussy which is hidden by clothing (called C), say "[The person asked] would need to take off [the C] first." instead

Check screwing:  Abide by the sex-check rules

Check screwing a body-part:  If the arousal of the holder of the noun is less than the screw threshold of the noun, say the not ready message of the holder of the noun instead.

Check someone trying screwing:  Abide by the sex-check rules

Check someone trying screwing a body-part:  If the arousal of the holder of the noun is less than the screw threshold of the noun, say the not ready message of the holder of the noun instead.

Carry out screwing a body-part:
  Let the screwee be the holder of the noun;
  If the arousal of the player is less than the screw arousal of the player, change the arousal  of the player to the screw arousal of the player;
  If the arousal of the screwee is less than the screw arousal of the noun, change the arousal  of the screwee to the screw arousal of the noun;
  Now the player is busy;
  Now the screwee is busy;
  Now the player partners the screwee;
  Now the screwee partners the player.

Carry out someone trying screwing a body-part:
  Let the screwee be the holder of the noun;
  If the arousal of the person asked is less than the screw arousal of the person asked, change the arousal  of the person asked to the screw arousal of the person asked;
  If the arousal of the screwee is less than the screw arousal of the noun, change the arousal  of the screwee to the screw arousal of the noun;
  Now the person asked is busy;
  Now the screwee is busy;
  Now the person asked partners the screwee;
  Now the screwee partners the person asked.

Section 2.3.6 - Masturbation

Instead of masturbating when the player encloses a penis (called P), try rubbing P

Instead of masturbating when the player encloses a pussy (called P), try rubbing P

Instead of masturbating, say "You'll have to be more specific."

A persuasion rule for asking someone to try masturbating:  Abide by the sex-persuasion rules.

Instead of someone trying masturbating when the person asked encloses a penis (called P), try rubbing P

Instead of someone trying masturbating when the person asked encloses a pussy (called P), try rubbing P

Instead of someone trying masturbating, say "You'll have to be more specific."

Section  2.3.7 - Removing clothing

Unsuccessful attempt by someone trying taking off clothing: Do nothing  [For the sake of brevity, all failure messages are handled through the check routines]

Before taking clothing which is worn by a person:
  Say "(first taking off [the noun])[line break]";
  Try taking off the noun.

[Note:  The following "before" rule will result in "taking" clothing bypassing the normal persuasion rules for "taking off" clothing.  This is rarely a problem, but authors should be careful when allowing NPC to be persuaded to take clothing.]
Before someone trying taking clothing which is worn by a person:
  Say "(first taking off [the noun])[line break]";
  Try the person asked trying taking off the noun.

A procedural rule:  If the noun is clothing, ignore the can't take people's possessions rule.

A procedural rule:  Ignore the can't take off what's not worn rule.

Clothing can be private.  Clothing is usually private.

Clothing has a number called take off threshold.  The take off threshold of a clothing is usually 0

A person has a number called take off threshold.  The take off threshold of a person is usually 0

A persuasion rule for asking someone to try taking off private clothing which is worn by someone:  Abide by the sex-persuasion rules

A persuasion rule for asking someone to try taking off private clothing which is worn by someone: 
   If the arousal of the person asked is less than the take off threshold of the person asked begin;
     say the not ready message of the person asked;
     persuasion fails;
  end if;

A persuasion rule for asking someone to try taking off clothing:  Persuasion succeeds

Instead of taking off clothing which is not worn by someone, say "But no one is wearing [the noun]."

Instead of someone trying taking off clothing which is not worn by someone, say "But no one is wearing [the noun]."

Instead of someone (called P) trying taking off clothing which is not worn by someone, try P trying taking noun

Instead of taking clothing which is worn by a person, stop the action [Error message already handled in the "before" rule]

Instead of someone (called P) trying taking clothing which is worn by a person, stop the action

Instead of taking off private clothing in a public-area, say the not in public message of the player.

Instead of someone trying taking off private clothing in a public-area, say the not in public message of the person asked.

Check taking off private clothing which is worn by a person who is not the player:  Abide by the sex-check rules

Check taking off private clothing which is worn by a person:  If a visible person (called P) who is not the player is not horny, say the stop message of P instead.

Check taking off private clothing which is worn by a person:  If the arousal of the holder of the noun is less than the take off threshold of the noun, say the not ready message of the holder of the noun instead.

Check someone trying taking off private clothing which is worn by a person who is not the person asked:  Abide by the sex-check rules

Check someone trying taking off private clothing which is worn by a person:  If the arousal of the holder of the noun is less than the take off threshold of the noun, say the not ready message of the holder of the noun instead.

Check someone trying taking off private clothing which is worn by a person:  If a visible person (called P) who is not the person asked is not horny, say the stop message of P instead.


Carry out taking off:
  Move the noun to the holder of the player;
  Now the holder of the noun is busy;
  Now the player is busy

Carry out someone trying taking off:
  Move the noun to the holder of the person asked;
  Now the holder of the noun is busy;
  Now the person asked is busy

Section  2.3.8 - Wearing clothing

Unsuccessful attempt by someone trying wearing clothing: Do nothing  [For the sake of brevity, all failure messages are handled through the check routines]

A procedural rule:  Ignore the can't wear what's already worn rule.

[Default rule:  A person is willing to wear anything]
Persuasion rule for asking someone to try wearing clothing:  Persuasion succeeds.

[Alternate rule:  A person is willing to wear only his or her clothes]
[A persuasion rule for asking someone to try wearing clothing:
  If the noun is clothing-owned by the person asked begin;
    Persuasion succeeds;
  Otherwise;
    Refuse;
    Persuasion fails;
  End if.]

Instead of wearing clothing which is worn by the player, say "You're already wearing [the noun]."

Instead of wearing clothing which is worn by someone (called P) who is not the player, say "[The P] is already wearing [the noun]."

Instead of someone trying wearing clothing which is worn by someone (called P), say "[The P] is already wearing [the noun]."

Section 2.3.9 - Hugging

Persuasion rule for asking someone to try hugging someone:
  If the person asked loves the noun begin;
    persuasion succeeds;
  Otherwise;
    refuse;
    persuasion fails;
  End if

Check hugging someone:
  If the noun is the player, say "You can't hug yourself!"

Check someone trying hugging someone:
  If the noun is the person asked, say "People can't hug themselves!"

Check hugging someone:
  If the noun does not love the player, say the stop message of the noun instead.

Check someone trying hugging someone:
  If the noun does not love the person asked, say the stop message of the noun instead.


Simple Sex ends here.

---- DOCUMENTATION ----

This extension implements basic sexual actions common in Adult Interactive Fiction (AIF) games.  It requires two other extensions to be installed:  ChooseObjects, by Jesse McGrew, and Simple Clothing, by Sir Gareth.  This documentation gives an overview of its basic features, but the best way to learn how to use the extension is by looking at the templates and examples provided with it.

The extension defines several types of body parts that are automatically possessed by all NPCs of the appropriate gender.  The default body parts included are eyes, hair, mouth, legs, ass, breast (women only), pussy (women only), and penis (men only).  When play begins, the game creates the appropriate body parts for each NPC.  So a woman named Jane would automatically be given a breast called "Jane's breast."  Note that because the player is neither a "man" nor a "woman," (s)he will not automatically be given any body parts.  So body parts for the player must be defined separately.

The extension also creates several new verbs and expands others.  The main verbs implemented are kissing, licking, rubbing, and "screwing" (having sex).  Actions for clothing (wearing and taking off) are given some additional checks.

A person may "kiss" another person.  Kissing someone's mouth is treated as kissing that person.  Kissing a body part is treated as "licking" it.

A person may "rub" and "lick" body parts.  Rubbing a body part that is hidden by clothing is handled by a separate action called "thru-rubbing."

A person may "screw" a body part.  Screwing a person is treated as screwing the applicable body part.

A person may "wear" or "take off" clothing.  Basic layered clothing functionality is provided in the separate extension Simple Clothing, but Simple Sex adds a few additional checks.

NPCs can be asked to perform any of the above actions.  Simple Sex goes through several persuasion checks to determine whether an attempt to persuade is successful.  In general, the NPC must be "horny," she must "love" the person she's asked to interact with, her "arousal" level must be high enough, and she can't be in a "public-area".

The player and NPCs have a number called "arousal" that tracks their general level of arousal during a sex scene.  When an action is successful, it generally increases the parties' arousal to a specified level.  NPCs are willing to do more as they become more aroused.

Each sex action has two arousal variables associated with it:  A "threshold," which is the minimum arousal required before the action can take place, and an "arousal," which is the level to which the action raises arousal.  So for example, the "lick threshold" of Jane's breast represents the level to which Jane must be arousaed before allowing someone to lick her breast.  The "lick arousal" of Jane's breast is the level to which her arousal is raised by someone licking her breast.

Simple Sex does not itself handle reporting of sex actions.  The author can handle reporting herself, or use the separate add-on extension Sex Reporting, which provides customizable messages for the results of sex actions.
